Profile of (eval 419)[Sub/Quote.pm:3]

Filename	(eval 419)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 16 statements in 172µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	12µs	94µs	Type::Tiny::::__ANON__[:16]Type::Tiny::__ANON__[:16]
1	1	1	8µs	8µs	Type::Tiny::::BEGIN@9Type::Tiny::BEGIN@9
1	1	1	7µs	23µs	Type::Tiny::::BEGIN@16Type::Tiny::BEGIN@16

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	2µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
3	1	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
4					package Type::Tiny;
5					# spent 94µs (12+82) within Type::Tiny::__ANON__[(eval 419)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]:16] which was called: # once (12µs+82µs) by JSON::Schema::Modern::add_vocabulary at line 177 of Sub/Defer.pm $$_UNQUOTED = sub {
6					($_QUOTED,$_UNQUOTED) if 0;
7					# BEGIN quote_sub PRELUDE
8					package Type::Tiny;
9					# spent 8µs within Type::Tiny::BEGIN@9 which was called: # once (8µs+0s) by Sub::Quote::_clean_eval at line 14 BEGIN {
10	1	1µs			$^H = 1762;
11	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
12	1	3µs			%^H = (
13					);
14	1	17µs	1	8µs	} # spent 8µs making 1 call to Type::Tiny::BEGIN@9
15					# END quote_sub PRELUDE
16	9	131µs	4	121µs	# spent 23µs (7+16) within Type::Tiny::BEGIN@16 which was called: # once (7µs+16µs) by Sub::Quote::_clean_eval at line 16 do { no warnings "void"; package Type::Tiny; (((do { package Type::Tiny; Types::Standard::_is_class_loaded(do { my $tmp = $_[0] }) }) && (do { local $_ = $_[0]; $_->DOES('JSON::Schema::Modern::Vocabulary') }))) or Type::Tiny::_failed_check(66, "__ANON__", $_[0], ); $_[0] }; }; # spent 72µs making 1 call to JSON::Schema::Modern::Vocabulary::OpenAPI::DOES # spent 23µs making 1 call to Type::Tiny::BEGIN@16 # spent 16µs making 1 call to warnings::unimport # spent 10µs making 1 call to Types::Standard::__ANON__[(eval 46)[Types/Standard.pm:48]:16]
17					}
18	1	16µs			1;
19
20					;